Sub main_Radianes_A_Grados()
    Dim grados, radianes, Pi As Double
    Dim i As Integer
    Pi = (4 * Atn(1))
    For i = 0 To 200 Step 50
        radianes = i / 100 * Pi
     grados = conv_Rad_Grados(radianes)
     Debug.Print "(" & i / 100 & " Pi) -> " _
        & radianes & " radianes"
        
        Debug.Print Space(9) & "(" & grados _
        & ") grados"
        
        Debug.Print
    Next i
End Sub
